home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / NSCHART.ZIP / CASE.NS < prev    next >
Encoding:
Text File  |  1988-12-16  |  395 b   |  25 lines

  1. "initialize"
  2. if "cases?" then "yes" :
  3.   case "case label" of
  4.     "first" :
  5.     "2" :
  6.       "simple"
  7.     "3" :
  8.       call "call"
  9.     "4" :
  10.       while "while" do
  11.       endwhile
  12.     "5" :
  13.       REPEAT
  14.       UNTil "until"
  15.       REPEAT
  16.       UNTIL ""
  17.     "6" :
  18.       loop "loop"
  19.       endloop "endloop"
  20.   endcase
  21. else "no" :
  22.   "simple thing"
  23. endif
  24. call "cleanup and go home"
  25.